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ALGUIEN NOS DIJO QUE EL MAZAPAN TENIA SABOR A MSX 



Esta frase que, en Navidades 
de otros años se había escuchado 
en todos los comercios, quizás 

esparciendo las malas lenguas, 
no. No hay que dejarse llevar 
por el pánico del olvido, sino 
que hay que tener en cuenta que, 
una vez asentado el estándar 
MSX, la ventas de hardware no 
alcanzarán las cotas de otros 

Esto último es de dominio 
público. Sistemas más actuales, 
pero no estándares, apoyados 
por campañas masivas de 
publicidad dicen tener más 
prestaciones y solo confunden al 
nuevo usuario, ávido de poseer 
el más anunciado, que para él es 



el "mejor" ordenador del 
mercado. Tanto da. Los que, 
desde un principio, apoyamos la 
norma, sabemos de antemano, al 
igual que los comerciantes de 

Csuarios^que e e"sistema MSX es 
el más vendido en cuanto a 
software. Ello significa que, 
cuando el sistema MSX ya por 
fin se ha asentado en el mercado 
nacional, lo que resta es saber 
mantenerlo con una completa 
biblioteca de programas. 

Por último, cuando las 
compañías de soft se preparan 
para la avalancha navideña, 
todos nos preparamos también 
para darle una gran acogida. En 
MSX-Club no somos menos, 
desde luego. Pequeñas 



transformaciones han ido 
sucediendo a lo largo de la 

variantes, sin duda alguna, 

Evidentemente siempre 




La Navidad: la mejor ocasión 
para felicitar a todos los lectores 
que nos habéis seguido e, 
imaginamos, continuaréis 
haciéndolo. Alguien dirá, el año 
que viene, cuál fue el sabor del 
mazapán de este año. 





CONVIERTE TU MSI 




Sumario, 
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Sale el día 15 de cada mes 

P.V.P. 350 Ptas. (Inc. IVA y sobretasa aérea Canarias) 



MONITOR AL DIA 



B.B.S. 

Ya está en fur 



. DEL HARD AL SOFT 

] Como ya viene siendo habitual 
V Willy y Carlos rivalizarán en esta 



intercambiar, comprar o vender hard y 
soft original (que no nos enter 
nosotros que os dedicáis al pir 
porque si no...). 



1U este mes: Star Wars, Star Fightei 
Dawn Patrol, Wilco, Vaxol, Polic 
Academy, Crazy Cars, y Americai 



1 C< 
U PF 



UINTO 
JONCURSO DE 
PROGRAMACION 



(LISTADOS 
FUGA EGIPTO 
BONCES 



, CUIDADO CON 
L PILLARTE 
0 LOS DEDOS 

a el mundillo del hardware y softwa- 
; siempre van circulando rumores. 
Quieres conocer lo que nunca se llega 



ti Y R POKES 

"U Su nombre todo lo dice: truco: 
pokes para tus juegos MSX. 

M TRUCOS 
DEL 
PROGRAMADOR 
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MONITOR AL DIA 




El Basic paso a paso. 



■Por Willy Miragall. 



MUSICA EN 
BASIC (VIII) 



Envolventes, frecuencias, acordes, armonía y 
ruidos de colores. Todo este amasijo de 
conceptos ha desfilado por MUSICA EN 
BASIC desde que iniciamos este apasionante 
tema. Con el capítulo de hoy daremos cierre 
al tema y a la serie, no porque el BASIC no 
tenga mucho más que dar, sino porque 
debemos dejar paso a nuevas secciones y 
nuevos enfoques. Pese a todo, los 
BASIC no quedarán 
MSX-Club. 



losam)^' 
jandonados e 



SOUND 0,254 
SOUND 1,0 
SOUND 8,10 
SOUND 7,&B1011U10 



SOUND 7,ÍCB10111111 
SOUND 8,16 
SOUND 11,16 
SOUND 12,0 
SOUND 13,12 



ido todos los c; 
s hn™s en ¿Tor 




musicales bastaría con asignar 
cuencia a cada uno de estos últimos 
canales y, por supuesto, activarlos. 
Para conseguir el efecto de combina- 
ción de la frecuencia básica (generad; 



la envolvente). 

RUIDO 

AY, ese genial t 

sonoro de nuestro MSX. Resultaría 

seguiío" con SOUND yYfariHdadde 
PLAY. ¿Es esto posible? 



10 SOUND 7,&B10110U1 
20 IF PLAY (0) THEN 20 
30 SOUND 6,31 
40 PLAY "T80S1M1000L16C" 
50 IF PLAY (0) THEN 50 
60 SOUND 6,0 
70 PLAY "CCC" 
80 GOTO 2 

No es una batería muy brillante; 
pero ofrece un buen resultado o ni nim 
poco esfuerzo. Bastan unos cuantos 
SOUND y líneas PLAY para progra- 
mar lo que, de otro modo, hubiera sido 
una interminable secuencia de líneas 
SOUND. 

Pero más interesante todavía resulta 
el hecho de que, integrar la batería con 
PLAY 



...■lodíaque < — 

con PLAY. De este modo, 



cosas quedan por decir, la 
, que podéis combinar la envol- 
Dn la batería (sobre todo con 



aclarar son las líneas del tipo IF PLAY 
(0) THEN... 
PLAY (X) 

Como todos ya sabréis, la función 



Programa MM^ggggMggMggigjor Antonio Sanchís i 



El ordenador bien temperado, y nunca mejor 
■pT TOA dicho. En esta ocasión, adaptación de la Fuga 

r U (j A -° de J ** B * ch ' de la r 



Antonio Sanchís. 




10 REM POR ANTONIO SANCHIS 
20 REM FARA MSX-CLUB 
30 REM 

4£ COLOR 12, 1.3: KEYOFF 

50 SCREEN2:LINE;5.5) - (250, 1S7> , 15.B 

:LINEi3,6; -i 247. 134, ,0,B 

¿0 OrEH "GRP: "ASItl 

7 2 FRESET ( 14. 40) : C0LCR3: PRINTItl . CHR 

*:34:;"el ordenador bien temperado" 
■ c:hr*;34¡ :preset (93.62; ; colorí 5 :pr: 

NTftl, "J.S.B, 

14:PRINTM," (por Antonlu Sanchís) 
80 PRESETÍ 108,1 10) : COLORI 4: PRINTftl , 
" vjl . I " : PRESET (30, 130) : C0L0R3 : PRINT 
M , "Fuaa r,?10 ¡111 Menor) 

1 "IEí20,50)-(23é.30),3:LINE(20 1 3 
' - -').4:LINE(82.72)-;j " 
.74)-(164,74) ,2:L] 
40) ,3:LINEÍ42,142] 

j'REM LINE(82,74)-(164,74, ,03:1 



"T090L1Ó", "T090L1 

J Q*="04EGB03E D+EDE C+ECE 04B03E 
: o4A+03C+a4GF+ GA+F+E DDBB Rlóo3 
;F+ EEC+E DDDD v7Dv3C+04BA+ Bú5C + 
\*B 03C+04F+A+03C+ E04A+03C+E GF+ 



F+BA+B E+G+ECi 
: 'F + Rlio4EED C 
' PLAY Q*,W* 



O3BA+04E 



- . + EÍC + 04BA+G+F+ ü5DDDD v7D 
c-4v8E3 + B O5D04G+B03D FEDF EDCo4B AG 
'F + E 05CCCC v7Cú4v8AEE F + GAB oSCDEF 
+ 3F + A3 F+EDC 04Bo3Go4Ao3F+ 
200 W*="04DDBD v7Dv8C+o3BA+ Bo4C+o3 
mB v°g2G+G+vSo3EE R1ód4EFEDCo3Bü4D 
CCCC . 7Cv8o3BAG+ ABGA „ ?ü2F+F+v803D 
D R16EF+G AB04C03A BAo4Co3B A3F+E D 
ECD 



. DGF + G 
. -JOSDD R ' 
F+v8EDC+ DEC 



■04D 03A04DC+E O30+B 

Q*= , 'o3Etc + 04B AG + 05ED C + o4BAG F 
+ r+jJD F + F + AA 05DD04F+F+ 03DC04BA GF 
+ 03EC 04BAGF EECC EEOO O3CC04EE OSE 
DCo4B AG+05ED C04BA3+ 



C+C+C2AA 03C+C+EE hmC+C+ hG 
F+E DC+AG F+EDC 02BB33 BBD3DD GGo2B 
B 03GFED C02B03GF EDC02B 03EDC02B A 
3+03ED C02BA3+ 



?BoóCo3B AGF + A GGGG v7Gv8F+ED+ EF 
JE v9C+C+v8AA RlóAB-A GFEG 

320 W*="v9GGv8o3EE RlóBo4Co3B AGF+A 
GGGG v8Gv/9F + ED + EF + D + E F + D2BD3D + F + 
AD+F+A 04C03BAQ4C 03BAGF+ ED+C+02B 
03GGGG v7Gv8o2Ao3C+E GC+EG B-A3B- 

J30 PLA',' Q*,W* 

340 Q*="FFFF v7Fv8EDC+ DECD v9o4BBv 
8o3GG R1Ó04ABO3C DEFD EDGF EEC+04B- 
""-CA v9FFo5v8DDRlóAB-A GFEG FFFF 
■-•8EDC DCDE 
; W*="AGFE DC + o2Bi 



)FE DC+02BA 03FFFF v7Fv8Do 

2 FGAB CO3B04ED C+D3B-A3 F 

o4Do3Eo4C+ 03DFA04I) C+DCD o3Bo4Do3B 
-o4D 03A04DC+D 03G+BFE FGED 
360 PLAY Q*.W* 

370 G*="a4Ao3CEA G+AGA F + AFA EAC. 
D+F+C04B D3CD+04BA 3+G+EE 3+3+BB o3 
EE04G+G+ 03EDC+04B AG+oSED C+o4BAG 
F+F+DD F+F+AA o5DDD4F+F+ o5DCü4EA 
F+05BC O4BA0F+BAGF+ED+BA GF+ED+ 
380 W*="v9CCv8AA Rlso4EFE DCo3Bo4D 
CCCC v7Cv<8o3BAG + AF+D+F+ SAG+F+ ED 
BA G+F+ED C+C+02AA D3C+C+EE AAC+C+ 
AGF+E DC+AG F+EDC Ú2BEGG BBD3DD GGo 
2BB o3BAGF+ ED+BA GF+ED+ 
390 PLAY 0*.W* 

400 Q*="o4EGBo5E D+EDE C+ECE o4Bh„„ 
3C D4BAB3+ A3AF + 3F+GA D+F+Co3B o4C 
D+Q3BA L32G+B04EE EE v7EEvóEE LIÓ 



Ú2BBR16RÍÓ L32EE EE v7EEvóEE LJ 
420 PLAY QS.W* 

430 IFPLAYCa)«0THEN440ELSE430 
•1-.3 KEVltf, "F0RZ=lT0l?: 

1Q -' kev »lprint:next 

KEY 3. " LPRINTCHR* ¡27 ) ¡ " +CHF 
:i" *CHR*(34¡ tSTRING*(2.29i 



30^ KEV 7, "sav6"+CHR*,'34'. + 
3¿e¡KEV é, "10ad"+CHR*(34;+' 



í ( KEY 9? ;.éáR. (2 7 ! 



"♦CHR*>34>+STRI 



, "keyoff "+CHRÍÜ3Í 
, "LPRINT"+CHR*¡34> 



"ílí 213 ~ 22 i 410 - 88 490 - 74 370 - 97 

5| -227 130 - 0 210 -221 290 -101 370 - 61 430 - | 2 530 - 13 

1 -224 14.0 -.J¡ 2|| - 3 300 -2Ú 380 -249 £ - 68 340 -223 TOTAL : 

240 -221 320 - 38 400 -189 480 -134 360 - 47 6897 



11 " 



UN LIBRO PENSADO 
PARA TODOS LOS OUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 




Y ADEMAS PROGRAMAS 



Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla decolores SCREEN 1. Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 



lypse Now El robot saltarín. El ar- 



Deseo me envíen el libro Los secretos del MSX. para lo cual adjunto talón de 1 500 ptas. a la orden de 
MANHATTAN TRANSFER. S.A. importante: No se hace contra reembolsos. 

Nombre y apellidos 

Calle n.° Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo 

Importante: indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 BajOS-08023 BARCELONA 




(2) DAWN 
PATROL 



(3) STAR 
' FIGHTER 

-BYTE-BUSTERS- 

(4) WILCO 

v 1 -MANHATTAN TRANSFER- 

(5) VAXOL 

v 1 -HEART SOFT- 

POLICE 

ACADEMY 

-EAGLESOFT- 

(7) CRAZYCARS 





¡SI TE HACE FALTA ALGUN NUMERO DE PIDELO HOY MISMO 



SUPEROFERTA 
NAVIDAD 



pásale las fiestas más emociona ntes con nuestra oferta de packs... 



1 REYES DEL ARCADT 



Con los juegos más adictivos que dejarán tu 
joystick hecho migas. Por sólo 2000 pelas 
cuatro sensacionales juegos. 

STAR RUNNER ^ 
MATAMARC 
KRYPTON 
MAD FOX 



SUPERCEREBROS 
EN ACCION 



Rómpete la cabeza y 
haz que tus amigos s 
vuelvan locos con 
nuestra oferta para 
supercocos. Por solo 
1000 pelas dos juegos 
que son la monda: 

LORD WATSON* 




EL SECRETO DE LA PIRAMIDE* 

l PROGRAMACION ATTOPEl 

Los programadores harán su 
Navidades por solo 700 pe 

GAMES TUTOR (I) 
TEST DE LISTADOS 



i r»sr 

TESTDEl 1 GAMES 
ILISTADOSi I ™ T 0R«) 



msxclub 



Dirección 


Población 






Provincia 






REYES DEL ARCADE c 
SUPERCEREBROS EN ACCION + p 
PROGRAMACION A TOPE c 

Gastos de envío ptas. 200 O o, ote.... 

Remito talón bancario de ptas 


tas. 2.000 
tas. 1.000 
tas. 700 





Recorta y envía este boletín a MANHATTAN TRANSFER, S.A. 
Roca i Batí le, 10-12, bajos. 08023 Barcelona. 

adjuntando el resguardo del giro postal o un talón bancario al portador. 



Programa i 



■ Por Damián Andrés Verger Vidal ■ 



EGIPTO 



En propias palabras de si 

dirigida a este departamento éste comentaba: 
"...éste es un juego que por su corta longitud, 
se convierte en un programa muy adictivo". 
Sobre el mismo habrás de llevar a un animali- 
11o hasta un oasis de un desierto y retornar 
con un paraguas. ¿Te atreves?. Pues del cielo 
llueven urracas en picado. 



i ' **POR DAMIAN ANDH-S* 

: : a p^x^ * 
i ' ********************* 

1 COLORI 8. 1. t : SCREEN 2 
J REM VARIABLES 

W P*="04L8AG#ABG4E4GF#E4GF#E4 
,0 P1*="04L2C03B04C#03B" 
?0 i»?*»' , L203AEAE" : R=6: BE=3 
50 FEM PRESENTACION 
10 DEFUSR=S,H41 : X=USR (0) 
F0 OPEN"SP.Pí - "FOP DUTPLJT AS #1 

DRAU." BM20 . 60D25R20U5L 1 5U5R 1 
¡U5P 1 5U5L20 " : PA I NTSTEP (1.1) 
'B DRAW"BM50 . ¿.SIL 25R20U6R5U5L 1 5D5R5 



¡TEP ( 



("BM5. 



j2DÓP 



i DRAW"BM93,B5R1 



I. 10) :LINE<165,'50> - 

l,60>-<165,50! 
:LINE(140. 10)- 



-•■> -'ND Pi- 
li DRAl 



' í : - 1 3:. 



,'ECPER" 



: PRIÍ 



"PULSA 
"PULSA J 



í al memj' 

:) = hW"LM3:?. 170" :PR 
,RA JUGAR " 

í DEFUSR = iiH44l X'=USR 
l F.LAY P*.P:t.P2í:P 
i PLAV "Q4Ei .u -u--v. . a i .-.EÍ04CD4CDE4R64 
^-EL.'4C4D:-:BD4Cn4C03BA1 " . "L2Q3GFttrE'- 



I*=INKEY*: IF 1 



1 THEN ! 
THEN 3 
DTHEN 330 ELSE GC 



REM DEFINIR < 
■80 BEEP 

:90 COLOR 10, II. i 
40C RES T ORE:FOR f 



í¡tSPRfTE*<N) - 
870:GCTC 13: 
«lsSQSUB 137C 
. THEN CS=4:) 



c v = 0 SC RTTF ON 
560 GOSUB 10B0 
570 GOTO 480 
REM MENU 
590 SCREEN 0:BEEPsH 
600 LOCATE !5.2tPR] 
610 LOCATE 15.3IPR1 



620 LOCATE: 12.6:PRINT"< 

NES " 

630 LOCATE; 12,S:PRINT"I 



INSTRUCCJC 
JOYSTIC' 



i LOCATE; 12, Í0:PRÍNT"3 CURSORES 
651? LOCATE 12. 12: PRINT"4 JUGAR " 
660 LOCATE 12, 14:FPINT"5 NIVEL Di-I 
DIFICULTAD" 

670 LOCATE 12, 16: PR1NT"6 FINALIZAR 
680 LOCATE 10. 1 V : PR I NT " EL I GE OPCION 



: IF 



OR 



:> OM I GOTO i 4 1 0 , "-30 . -.'70 . 390 . 3 t 0 
30 

i REM JUEGO CON JOYSTICKfl) 
:l Mi «i 

í LOCATE B. 21 ¡PRINT" JUEGO CON JO' 

ten ta 

S GOTO 690 

> REM JUEGO CON CURSORES 

780 LOCATE 8. 21 : PRINT'MUESO CON CUI 
SBRES < - -> » 
<0 SOTO 690 

10 REM NIVEL DE DIFICULTAD 
0 LOCATE 1,22:PRINT"ELIGE NIVEL D 
DIFICULTAD (1-4)"; 

:0 :*=INKEY*: IF 1*="" THEN 820 

■0 IF C<1 OR C>4 THEN 820 
¡0 F'RINT C:R=C*3:GQT0 690 
i0 REM PAISAJE 
■0 $* = "ft!.r2R2E::P2E2F-.2K2R-':E2*3E2F7E 
3F1R2F1R2F2R2F2R1F :P!F 1*1-2" 
:0 BRAWBM1 1 . 50XA*; XA*: VA*: XAf 



2F :.:<-'-!- ! 1 L :. I .j. L: ;; ; ¡: 1 r— 1, ; :L 4 r., , L , , F 
:1 , J4E1R1FÍD6G2L3G1D7L6" 
1 DRAWBM50. 100C2XAÍ*: ":PAINT STE 

' < ■ h'/J " E'M ! '50 . 1 1 0S6X A 1 * : S4 " : RA I NT 



: AW " BM2 14. i 40 " : PR I NT #1 . » OAS I 
J"BM215. 140"rPRINT #1. "OASIS" 
:RCLE < 258. 1-70) , 20. 4s PAINT STEP 



SPRITE OFF 
J BEEP 

í BE=BE-1:IF BE-0 THEN RUN 
3 GOTO 1310 



1030 REM MOVIMIENTO DE LAS AVES 
1040 Y=Y+R 

1050 IF Y>192 THEN Y=0:GOSU3 1370 
1060 RETURN 

10-0 F EM MOVIMIENTO DEL HOMBRE 
1080 FOR N=l TO 5 
1090 M=STICK(M1» 
1100 NEXT N 

1110 IF M=3 THEN 1120 ELSE IF M=7 
HEN 1160 ELSE RETURN 
1120 Z F V = l AND X3220 THEN RETURN 
LEE X-X+l 

1130 TF 2=1 THEN 3=2 ELSE IF 2-2 7 
EN Zmi 

1140 IF X*240 THEN 1190 ELSE IF V« 
AND X=5 THEN 1240 

116!? IF X<5 THEN RETURN ELSE X-X-l 
1 GO r 0 í 130 

1180 ccm CUANDO LLEGA AL OASIS 
1190 S='fiITE*(l)=SPRITE*<4> 
1200 SPRITE*<2:=SPRITE*<5> 



•I ENHORABUENA! Ha- 



230 íF STRIG'Ml;. THEN RUN 
300 RE:* 1 'VIDAS 

71» DfAWBMIS. 10" : RRINTB1 . " MMÜ 
I" 

'20 COLOR 15 
330 DRAW"BM50, 1 0 " : pe- T mt» 1 . "VIDAS" ; 
E 

340 COLOR 1 

350 GOTO 450 
13&0 REM SITUACION DE LAS AVES 
'.370 READ X2.X3.X4.X5 

380 IF X2-0 THEN 1390 ELSE RETURN 

390 RESTORE 1560 

400 GOTO 1370 

410 REM INSTRUCCIONES 

430 GLREEM 0 

430 LOCATE 1 2. 01 PR INT" I NSTRUCCI ONE 



440 LOCATE 1 



- PPIN" 



460 LOCATE 1 . 8 : PR I NT " Par a corseaui 



Programa 



i IF STRIGCM1) THEN 590 ELSE GOT 
) DATA 3, 1= 



192. 4B. ! 
126. 171 . 



\1-*<* PATA 0. 12.0 



:as¡ a i HACER DE TI UN PRI-MER PL 

ü LOCATE 1.14|PRINT"A»£ OUB a 
ráciaaiente esta no-na dt?l tiei\ 
3 haata llega'- » un c 
i regresar con agua a tu oobladn 

i' LOCATE 0.19a PRINT"Tus 



Test de listados ■ 



- 58 250 -122 490 - 



30 - 58 270 - 

40 - 58 280 - 

50 - 58 290 - 

60 - 58 300 - 



500 -155 740 -156 
72 510 -157 750 - 75 
122 520 -175 760 - 0 



-234 550 - 92 79E 
320 - 49 560 -215 806 
330 -254 5?0 -120 81E 



20 - 59 360 - 

30 - 0 370 - 

40 -176 380 - 

150 -177 390 - 

160 -142 400 - 

170 -254 410 - 

-243 420 - 

-148 430 - 

200 -218 440 - 

210 -218 450 - 

220 -172 460 - 

230 -207 470 - 

243 -185 480 - 



- 44 1080 -192 



192 620 - 95 
171 630 -107 870 - 



- 79 640 -240 



- 83 1120 -238 



Programa ■ 



■ Por Daniel Morato e Isaac Botija ■ 



BONCES 



40 REM Bonces 

50 REM 

60 KEYi , " ■ 

70 B=Í7¿7: IN=4:P=6733:P2=l:PU=0:Lt= 

40:v«3:bc«0:B2«i 

30 ON INTERVAL=IN QOSUB 790 
90 A*="L8M20000S10T100O4EEAAGA.B16A 
GEEEDE4E " : B*= " L8M20000S 1 0i i 0GO4EEAA 
aA.BlSAGEEEDE4EEE03CC04B0=C.D16C04B 
GGGF04GEAAAGE.F16ED03BBBAB4B04CF4, - 

100O3EEO4CCO3BO 



[00 C*="L8M20000Slf- 



B4B03CF4.EC.__ 
kkS- %H ü L f "200003 i 0T 1 20O3C4O4B 1 6 A i ó 
G03l.04EAAF4F^6E^óIiGGE0■ : E*= "L8T1 20M 
20000J10O4C4DE16F16ECF16C16FA4GAB31 
6B1603CDEC04B16A16G03G04CAAF4F1ÓE1Ó 
DGGEGC4DE16F16EGAB03C2R2" 
120 F*="L8T120M20000S10O3C4B16A16GO 
4C03EAAF4F16E16DGGEGC4DE16F16ECF16C 
láFA4GABG16B1604CDEC03B16A16G04C03E 

30 KEYOFF : COLOR 13. i. J 
4.T FOR K=1280 TO 1327 



30 READ A 
40 VPOKE K, 
30 NEXT K 



¿100 NEXT K 
310 VPOKE 8209.96 
320 FOR K=1132 TO 1213 
330 READ A 
340 VPOKE K, A 
330 NEXTK 
360 VPOKE 8210. 04 
370 FOR K=1216 TO 1223 
380 READ A 
390 VPOKE K.A 
400 NEXTK 
410 VPOKE 8211,224 
420 GOTO 2090 
430 ' PINTAR PANTALLA 
"2 2N «JOTO 460 510, 320. =30, =40. 

PANT. 1 
460 LD=40: RESTORE 2610 
470 FOR L=6144 TO 6911 



480 READ A 
490 VPOKE L 

300 nextl:c 



Un rompeladrillos más. Debes destruir ce 

bola todos los ladrillos de las diez pantallas de 
que consta el juego. Inserta tu nombre, 
entonces, en la lista de honor. No es fácil, ei 
esta nueva variante, el juego es bastante 
rápido; y más difícil, por tanto, de i 
bate. 




510 LD = 52 : RESTORE 2830: 30TO 470 
320 LD=32: RESTORE 3090: GOTO 470 
330 LD=36: RESTORE 3330: GOTO 470 
340 LD=43 : RESTORE 3370: GOTO 470 
330 LD=33: RESTORE 3810: GOTO 470 



360 LD=68 : RESTORE 4030: GOTO 470 
570 LD=74 : RESTORE 4290: GOTO 470 
38.0 LD = 71: RESTORE 4330: GOTO 470 
390 LD=37: RESTORE 4770: GOTO 470 
Ó00-,VPOKE Í28: VPOKE BÍ1.129ÍVF 

íÚ^O 225° 

^E V ^3 E 7.ÍII?6O?B : ^0 KE 68M ' 129:U 
640 VPOKE 6833, 128: VPOKE 6836, 129:V 

OTO 660 

660 INTER VAL ON 
670 ON KEY QOSUB 5010: 
680 S=STICK(0¡ OR STIC 
690 IF SO 3 Alv- -■ - 
700 IF S=7 

¿20 g IF VPEEK1B+2)O0 THEN B=B-1:G0T 
74¿ GOTO^680 '* 

760 IF VPEEK(B)<>0 THEN B=B+1:G0T0 
770 VPOKE 




; m-3.0: VPOKE I 
VPOKE B.128 



780 GOTO 680 
790 ' SUBRRUTINA DE TIEMPO 
800 ON P2 GOTO 820,1000,1310. 

GOTO 800 ' 

' SUBRRUTINA 3.1 
-__ P=P-31 
840 IF VPEEK(P?<>0 THEN 870 



►2, 130: VPOKE 



\ Programa ■ 



850 VPOKE P+31,0:VPOKE P.136 
860 RETURN 
F VPEEKCP)<>148 THEN 910 



190 VPOKE P.0 

:S ETMIOToMÍ THEN 970 
'20 VPOKE P,0 

1% EKH!tt*B« THEN 2040 
.30 VPOKE P+31,0 
960 P2=2: RETURN 
970 P=P+31 
980 VPOKE P,0 
990 P2=2: RETURN 

000 '_SUB. 3.2 

%23 IF P VpIeKIP)<>0 THEN 1030 
.030 VPOKE P-33,0:VPOKE P, 136 

030 IF T ypEEK(PK>128 AND VPEEKÍPX 
> 129 AND VPEEK(P)<>130 THEN 1090 
060 P=P-33 
070 VPOKE P.0 

^"¿'tilÉWoin THEN 1150 

ü BEEpf PU=PU + 30 
20 LD=LD-l:IF LD=0 THEN 2040 
30 VPOKE P-33,0 



40 P2=l: RETURN 



I 1190 



IKE P.0 



60 P=>P-3£. 
-~ VPOKE P,0 

a ir 

240 VPOKE 6835,0! VPOKE 6836,0:VPOK 

' 6837,0 

290 GOTO 1300 

260 VPOKE 6860,0: VPOKE Ó861.0:VPOK 
270 6 GÓTO 1300 

280 VPOKE 6863,0:VPOKE 6866,0:VPOK 
: 6867,0 

§25 pÍBaOT-i:, 

310 ' SUB. 3.3 
320 P=P+31 

330 IF VPEEK(P)<>0 THEN 1360 
340 VPOKE P-31,0! VPOKE P, 136 

11% SrffiUlPIOlW THEN 1400 
370 P=P-3i 
380 VPOKE P.0 
390 P2=2: RETURN 

400 IF VPEEK(P)<>128 AND VPEEKtP) 
129 AND VPEEK(PK>130 THEN 1440 



430 BEEF . . _ 
460 VPOKE P,0 

470 LD=LD-l!lF LD=0 THEN 2040 
480 VPOKE P-31,0 
490 P2=4: RETURN 



340 VPOKE P-33,0 
330 ON V GOTO 1370,1380 
360 VPOKE 6833.0:VPOKE Ó83ó,¿ 



. 6862 ,0: GOTO"'l590 
580 VPOKE ¿865,0: VPOKE 6866,0: VFOK 
! 6867,0: GOTO 1590 
590 P = 6735:P2=l:RETURI-. 
600 _SUB. 3.4 

620 IF P VpIeK(P)<>0 THEN 1650 
63¿ 7POKE P+33,0: VPOKE P.136 

650 IF T VPEEK(PK>147 THEN 1690 
.660 P=P + 33 
670 VPOKE P.0 

•SU P F 2= ÍpE R E E kV^<>152 THEN 1740 
"00 BEEP:PU=PU+30 

1% S2íi-?if^SS| ThIn'2040 
738 P2 = 3! RETURN 

790 LOCATE 8.14:PR] 
800 IF PU< «ME 15) f» 

wmmtm .. 

.820 FOR I»l TO 1000: 
1830 CLS 

840 LOCATE 3,10:INPUT "HOMBRE 

350 N*=LEFT»(N», 10) 

860 IF PU>NE!3i THEN ME(5)*PU ELSE 

S70 £ IF HE!5)>ME<4) THEN ME(5)=MEC4 
:MJ»(3)=MJ»(4) :ME<4)"PU ELSE 1910 
880 IF ME!4>>ME(3) THEN ME(4)=ME<3 
SE 1920 

39c if me!3)>mei2) then me(3)=me¡2 
:i1j»<3)=mj«(2>:ne(2)"pu else 1930 
900 if me(2)>he(i) then me 12) -me ii 
:mj*(2)=mj»(d :me(d=pu:ooto 1930 

LSE 1940 

910 MJ*(5)=N*:G0T0 1960 

°20 MJ*í4)=N*:G0T0 1960 

930 MJ*(3)"Nr 

.940 MJ»(2)"r- 
1950 MJ«(1)=I 
1960 CLS 

^970 LOCATE 7 , 5: PRINT'TABLA DE HONO 
1980 m LOCATE 3,8:PRINT"1? ! 
199¿r M L0cÁTE 3,10:PRINT"27 
2000'lOCATE 3, 12:PRINT"3? 

2010'lOCATE 3,14:PRINT"47 
; " - " ¡MEÍ4) 

2020 LOCATE 3 , 16: PRINT "3? 



"(MJ*(3 
"iMJ*<4 
"¡MJ*(5 

2030'fOR 5 Í=1 TO 1500:NEXTI:GOTO 209 

¿i 



CONSEGUIDO! ! 
¿«53* *tv;i> OFF : LOCATE 
9_LOGRA9TEM.„ 



2 ?HÍN F °5 R 20 =1 T ° 
2070 LOCATE 7.13:PI 



10:print"l 

:F B2=10 
PUNTOS 



OR 1 = 1 TO 300:NEXTI:PU=PU+300:LOCA 

ros: "¡pu:for i = i t 

10A0:ne>t: 



20S0 B2-32+l:P=6733:I 



=Ó767:P2=1:CLS 



2100 B=67Ó7: in=4:p=6735:pz=i:pu=¿:l 
d=40:v=3:bc=0:B2=i 

2110 CLS 

2120 LOCATE 10, 10:PF;IIJT CHRSÍ1Ó0Í 

2140 LOCATE il,li:PRINT CHRÍÜ62; 
2130 LOCATE -12, 1 1 : PRINT CHR9Í163! 
2160 LOCATE 13,il:PRINT CHR*ile4, 
2:70 LOCATE H.llrPRINT CHRÍÍ1Ó5; 
213? LOCATE 5,16:PRINT"- PULSA BOTO 

2!?a st*strig:¿:- or strigíií:if st> 

-1 THEM CLS: GOTO 4 30 

2200 PLAY Ai: PLAY 8*.C* 

2210 FOR H=¿144 TO ¿300 

222-- 7P0KE H.136:VP0KE H-1,0 

2230 ST=STRI3<0: OR STRI3 i 1 ) 

7240 IF ST--1 THEN CLSrGCTO 430 

2230 FOR 1=1 TO 70:NEXTI 

2260 NEXTH 

2270 VPOKE 63.30,0 

223.K CLS 

2290 LOCATE U.ÜPRINT CHF.* i láB'i : LO 
,2:PRINT CHR*(165> 

2 3 10 LOCATE 7 , 5: PRIMT "TABLA LE HONO 



2340 locate 5,7+bc:print f 
j*;rei ■ ¡me ;rei 



380 IF ST--1 THEN CLS: GOTO 430 
23"'? NEXTI 
2400 30T0 2090 

2410 DATA 0.0,0.0,240,248,232,220 
2420 DATA 204 232 248 252 206 198, 1 
98.23 1 

243C- DATA 0,114,230,219,218,218,219 

24-5 DATA 0,47.43.40, 168, 104-.40, 47 
3430 DATA 0, 121 , 89 , 65. 1 1 3 . 81 , 66, 123 
■' ",192, 04,0,0, 128. 128, 144 
i, 35, 16/, 131, 133, 160,32, 

2480 DATA 0.235,253.255,233.0,0.126 
2490 DATA 28,196,229,193,161,3,4,12 

2500 DATA 0,36,124,116,100,36,0,0 

lili ?^£fáá:Utft$:% 

2330 DATA 104,104,104,104,104,104,1 
04,104 

2360 DATA 22,22,22,22,22,22.22,22 
2570 DATA 104,104,104,100,19,24,7,7 
2580 DATA 0.0,0,0,233,0,255,233 
2390 DATA 22 , 22 , 22 , 38 , 200, 24 , 224 , 22 

2600 DATA 0.0,126,126,126,126,0,0 
2610 DATA 144,145,145,145,145,145,1 
43,143,143,143,143, 145, 143,145. 145. 



,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0. 

0,0,148 

2630 DATA 147,132,0.132,0,132.0,152 

!t»^ití'i^iii%ib?i!iji; 

¿, 132,0, Í52, M.A, 132, A, 1S2, l4¿ 
2630 DATA 147,152.0,152,0,0.0,152,0 

267¿ DATA 147,0,0,0,0,0,0.0,0.0,0,0 

,0,0, 0,0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

2680 DATA 147,0,0,0,0,0.0,0.0,0,0,0 

,0,0.0,0, 0,0, 6, A, A, A, A, A, A, A, A, A, &, 

0,0,148 

2690 DATA 147, 0,0,0,0, 0.0, 0,0, 0,0. ¡ 

£0£0j0£0,0,0,A,A,A,A,A,¿,A,A,A,A,A, 

270A DATA 147,0,0,0,0,0,0,0,0,0,0,0 

,0,0. 0.0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

0,0, I4é 

2710 CATA 147,0,0,0,0,0,0.0,0,0,0,0 

£0 ¿ 0j0 ¿ 0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

272A DATA 147,0,0,0,0,0,0,0.0,0,0,0 

,0,0. 0.0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

0,0,148 

2730 DATA 147,0.0,0,0,0,0,0,0,0,0,0 

A 0 ¿ 0j0 ¿ 0,0,0,A,A,A,A,A,A,A,A,A,A,A, 

2^4A DATA 147,0,0,0,0.0,0,0,0,0,0,0 

¿ 0 ¿ 0j0j0,0,0,A,A,A,A,A,A,A,A,A,A,A 

0,0,148 

2770 DATA 147,0,0,0,0,0,0,0,0,0,0,0 

,0,0, 0.0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

0,0,148 

?0?0,0?0%:0:A?A?AfAfA?A?AfA?A?AfA 0 

0,0, 148 

2790 DATA 147,0,0,0,0,0.0,0,0.0.0,0 

0^0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

280A DATA 147,0,0,0,0,0,0,0,0,0,0,0 

,0,0. 0,0, 0,0, A, A, A, A, A, A, A, A, A, A, A 

A, A, 148 iiii 
2810 DATA 149,150,130,130.150.130,. 

50,i50,i50,i5A, ísA.isA.isA.isA.isA, 

150, 15¿, 15A,15¿.15¿,15A.13¿.13¿.13¿ 

, isA, 15A, 15A. isA, 15A.15A.15A.15l 

2820 DATA 144,145,143,145.143,143,1 

?4 5 *i?4 5 =¿?4 3 5 :?4 i é:?4 i =:?téí?s 5 ííh:?s= 

JIJSj 0*0 ,b, *. A?A?A?A?AXaXA? f, A? 

284A DATA 149,150,130,130,130,130,1 

30, 150, 150, 15A, isA, 15A. 13A, isA, isA, 

ISA, ISA, 15¿, 15¿, 13¿, 13¿, 13¿, 13¿, 13¿ 

, isA.isA, 15A.15A.15A.13A.13A.13l 



Programa ■ 



0,0,0,0,148 

2870 CATA 147,0,0,0,0,0,0,132,0,132 
,0,0,0,0,0,0 .0,0,0,0,0,132,0,132,0, 
0,0,0,0,0,0, 148 

i ,0,0,0, 148 

2900 Cata 147,0,0,0,132,0,132,0,132 

,0, 132,0, 132,0, 1 32,0, 132,0, 132,0,0, 
0,0,0.0,0,0,0,0,0,0,148 

2910 Cata 147'0,0, 132,0, 132,0, 132,í- 

, 132 ,0,0,0, 132,0,132. A, 132, A, 152, ¿, 
0,0.0,0,0,0,0,0,0,0, 148 

2920 Cata 147,0,0,0,152,0.0.0,152.1 

,0,0,0,0, 132, ¿.0,0, 132,0,0, 0,0,0,0, 

0.0,0, 0*0, 0.148 

,3 jL e, í. 2t i. ls2 i.' 2, i A.iA,A,0, 152,0,0,0,0,0, 
0,0. 0.0,0,148 
2*40 CATA 147,0,0,0,132,0,0,0,152,4 
,0,0,0.0. 132.0,0,0, 152,0,0,0,0,0,0 

0.0,0,0.0,0. Ué 

2930 CATA 147,0,0,132,0,132,0,152,1 

^.SííVÍSAfiSííSfiSsfSfififlf 

0,0,0,0,0,0.0,0,148 

Ií5%is?*?*f *?*f *r*f *f 



¿Xi Sé' 

2ÍO0 DA".»- 
.0,0.0,0, 

A,A,Í4é 



0,0,0,* 



'^xaxaxaxatatata 1 

p^2^i?ifi?iiri?iir*?i?iA?i( 

3¿3A DATA 147,0,0.0,0,0,0,0,0,0 0, 



30. 150, 150, 150, 150. 150, 13 u 
130,150,150,150,130,151 

144, 145, 143, 145, 143. 145,1 
5, 145, 145, 143, 145, 145. 145. 
4*. 143, 14é, 14Í, 14Í, 145, 14Í 
145, 145,145,145,145,140 

147,0 ,0 ,0 , 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 
0,0,0,0,0,0,0,0,0,0,0,0,0, 



130,130^ 

■■ ' ■ '■ : ,-. 
43,143,: " 

,145, ltí, 
307P DATf 
,0,0.0,0, 

k.b, Í4é 

3080 DATA 149.130,130,130,150,150,1 

,150, 150, 150, 150, 150, 150. 150. 15l 
3090 DATA 144,145,143,143,145,145,1 

?4 5 =í?f=iÍ4 5 =¿?4 Í =^5Ííh:?!=í?4 Í éíÍ4 t = 

3Í0Í'D^T Í A 1 Í4 Í 7^AÍ0! S AÍ0^Í0?¿Í0f0.0 



^ 0^0, JÍJ, 0,3,0,0,0, 0,0, 0,0, 0,0,0, 
3ÜA DATA 147,132,0.132,0,132.0,152 

2,0,0,0,152,0,0,0,0,148 

3l3é DATA .1^,0 0 0 0 0 0 0 0 0 0 0 

£0^0j 0^0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

3l4A DATA 147,0,0,0,132,0.0.0.132.0 
,0,0, 0,0, 0,0, A, 0,0, 0,0, A, 152,0,0,0, 
152,0,0,0,0.148 

3150 DATA 147,0,0,0,0,152,0,152,0,1 

^2fAÍ?= 2 2fA^A?A?A?l^ 1 = i ' & ' 15Í ' í '' 
^ 1 |^?0!0rAfifAfAfAfAfAfAfAfAfAf 

3I7A DATA 147,0,0,0,0,0,0,0,0,0,0,0 
.0,0.0,0.0.0,0,0, 0, A, 0,0,0, A, 0,0,0, 

A.A,l4é 

3180 DATA 147,0,0,0,0,0,0,0,0,0.0,0 
,132,0, 152,0, l32,A, l32,A,A,A,A,A,A, 

0.0,0,A.e,A,l48 

3l90 DATA 147,0,0,0,0,0,0,0,0,0,0,),- 

,0,0, 0,0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

0,0,148 •■»'■■«•'•»•• 1 
3200 DATA 147,0,0,0,0,0,0,0,0,0,0,0 

.0.0.0.0, 0,0,0, 0,0, 0,0, ¿,0,0, A, A, A, 

0,A,l43 

32l£ DATA 147,0,0,0,0,0,0,0,0,0.0,0 
.0.0.0.0,0.0,0,0,0,0,070,0,0.0,0,0, 

í-,0,143 

3220 DATA 147,0,0,0,0,0,0,0,0,0,0,0 

,0.0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

¿',0,M8 

323A DATA 147,0,0,0,0,0,0,0,0,0,0,0 

,0,0, 0,0, 0,0, A, 0, A, 0, A, A, A, A, A, A, A, 

0,0,148 

324A DATA 147,0,0,0,0,0,0,0,0,0,0,0 

, 0,0,0.0.0, 0, A, A, A, A, A, A, A, A, A, A, A, 

¿,0,148 1 

3250 DATA 147,0,0,0,0,0,0,0,0,0 " " 

£0^0j0g0, 0,0,0-, 0,0, A, 0,0, 0,0,0,: 

32óA DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 



0,A,A,A,A,A,A,A,A,A,A,A 

0,0,0,0,0,0,0,0,0,0,0 

A, A, A, A, A, A, A, A, A, A, 



327A DATI 



329A DATA 149,150,130,150,150,150,1 
50. 150, 150, 15A,13A,1 50,1 3A, isA, isA, 
150. 150,150,150, 15A, 150, 150, 150, 15* 
.15A.13Í . 150. 150. 130.150. ISA.ISI 
3300 DATA 144,145,145,143,145,145,. 
43.145,145,145,145,145,145,145,145, 
143, 143,145, 143, 143,143, 143, 145,145 
,145, 14*1. 14Í, 145, 145, 143, 143, 14¿ 
3310 DATA 147,0,A,0,0,0,A.0,A.0,0i0 

,0,0, 0,0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

0,0,148 

332A DATA 149,130,150,150,130,130,1 
50,150, i. 30, ISA.ISA, 15A,15A,15A,15A. 
1 30 , 1 30 . 1 50 , 1 5¿ , 1 30 , 1 3¿, 1 30 , 1 3¿ V. 1 30 
15A,15A J| 15A^13A^13A i 13A i 15A x 15Í 



,130,15.». 15Í 



3340 DATA 147,0,0,0, 132,0,0,0, IS2.ÍI 
,u, 0,0 ,0,0. 0,0,0, 0,0, 0,0, 152,0,0, 3, 
132,0,0,0,0,148 

3333 CATA 147, 0,0, 0,0, 132,0,0,0, 132 

^x^yA ' ' • ' • • - ,is 

3360 DATA 147,0,0.0,0,0.132,0.0,0,1 
32,0,0,0,0,0,0.0,0,0, 132,0,0,0, 152, 
0,0,0,0,0,0. Ué ' ' 

3370 DATA 147,0,0,0,0.0,0.132,0,0,0 
,132,0,0,0,0.0.0,0,132,0,0,0,132,0, 
0,0,0,0,0,0,146 

3380 DATA 147,0,0,0,0,0,0,0,152,0,0 
,0,132,0.0,0,0,0,132,0,0,0,132,0,0, 
0.0,0,0,0,0. l4á 

3390 DATA 147,0,0,0,0,0,0,0.0,132,0 

0wi t 2 0fAri^ l5i ' &,i,i,l5i,&,í,& ' 

3400 DATA 147,0.0.0.0.0,0.0.0.0 152 

ú^t^puiiwyyyyyy, 

£■•,0,0,0,148 

3430 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,0, 152,0,0,0, 132,0,0,0,0,0,0,0,0,0, 
0.0,0,0,l4á 

3440 DATA 1 47, 0,0,0,0, 0,0, 0, 0,0,0,0 
,0,0,132,0.132,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0.148 

3430 DATA 147,0,0,0, 0,0.0, 0,0,0, 0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0.0,148 

3460 DATA 147,0,0,0,0,0.0.0.0,0,0,0 
,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0, l4á 

3470 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,148 

3480 DATA 147,0.0.0,0,0.0,0,0,0,0,0 
^0j0^0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

3490 DATA 147 ,0,0 ,0,0,0, 0,0,0, 0,0,0 
,0,0.0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

3300 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,0.0.2,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0, 148 

3310 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
^0j 0^0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

3320 DATA 147,0, 0,0 .0.0.C.0, 0,0, 0,0 
,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

3,0. 143 

3530 DATA 149,150.150,150,150,150,1 
30,150,150,150,130, 150, 150,150, 153, 
130, 150,150,150,1301150,150, 130, 15¿ 
,150, 130,150.150.150,130,150,151 
5540 DÁTA 144.145, 14*. 143.143,145.1 
43, 145, 143, 143, 145, 145 .145, 144, 145, 
143,145,145,14é.l4é.l4Í,14é.l4é,145 
.143, 145, 145, 145, 145,145,145,146 
3330 DATA 147, 0,0,0, 0.0. 0,0,0,0,0,0 
0^0, 0,0, 0,0, 0,0, 3, 0,0, 0,0, 0,0, 

3360 DATA 149,130,130,130.150,150,1 
50, 130, 150, 150,130,150,150, 150, 150, 
1 30 ,1 50 ,1 30 ,1 50 , 1 50 .1 50 .1 50 .1 50 . 1 50 
,153, 150, 150. 150, 130, 150, 130, 13l 



0,0,0,0,0,0,148 
3390 DATA 147 , ' 



,0, 132,0, 132,0, 152,0,152.0, 152,0, 13 
2,0,132,0,0,0,0,0,0,0,140 ' 
3620 DATA 147,0,0.0,0,0,0,0,132,0.1 

«!cl|i^i|i¡i!ifa;iftfi?*¿!b* 

0,0,0,0,0,0,0,0,0,148 

3640 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
^0^152^152, 0,3,0,0,0,0,0, 0,0,07 

ffixiwiyyyyyyyyyyy 

$$%iuiryyyyyyyyyyy 
p$$iwryyyyyyyyyyy 
$%%iuwyyyyyyyyyyy 

3*4¿ DATA 147,0,0,0,0,0,0,0,0,0,0 0 
^0^^3,0,0,0,0,0,0,0,0,0,0,3,0,0, 

3*3¿ DATA 147,0.0,0,0 0 0 0 0 0 0 0 
^0 ¿ 0j0 é 0,0,0,0,0,0,0,0,3,0,0,0,3,0, 

3 M B*I A t 7 *, 0 V. 0 W 0 í 0 iv a l 0 I 0 » 0 I» 1*1* 
0 0 148 ' ' ' 

3773 DATA 149,150,153,150,150,150,1 
30,130,130,130,130,150,150,150,150, 
130, 150, 150, 150, 130,130,153,130, 133 
,133,150.153.153,150,133,153,131 
3780 DATA 144,143,145,145.145.145.1 
45, 1 43, 1 45, 145,143,1 43 , 1 45. 1 45 . 1 45 . 
143, 143,143, 143, 143, 145, 143, 145, 145 
,145,143. 145,143,145. 143,143,146 
3790 DATA 147,0,0,0,0,0,3,0,0,0,0,0 
,0,0,0,0,0,3,0,0,0,3,0,0,0,0,i,0,0, 
3,3,148 

3803 DATA 149,130,130,150,130,130.1 
30, 150,150, 133, 150. 133, 133, 130, 133, 
133, 130, 153. 130. 130. 133.133,130, 150 
,130, .133. 150. 153, 150. 153, 150, lsl 
3810 DATA 144,145.145,145,145.145,1 
45. 1 45, 3 43, 1 45, J 45 . 1 45 . 145.145.143, 
143 143, 144,143. 145, 145.144, 145, 14é 
,145, 14Í, 14*. 144, 144,144, 144, 14¿ 
?823 DATÁ 14^.0,3.0.6.0.0.0.0.010.0 
,0,0.0,0,0,0,3,0,3,0,0,0,0,0,0,0,3, 



Programa ■ 



0,152,0,0,0,0,0,140 

3840 DATA 147,0,0,0,152,3,152,0,152 

.0,e,0,0,0,0,¿,0,ír.j3,ei, 132,0,132,0, 

152,3,152,0.0,0,0,148 

3830 DATA 147,0,0,132,0.0,0,132,0,0 
,0,0,0.0,0.0,0,0.0,0,0, 1 52,0, 152,0, 
132,0,0,0,0,0, l4á 

3860 DATA 147,0,0,0,132,0,152,0,132 
,0.0.0,0,0,0,0,0,0,0,0, 132,0, 152,0, 
Í32.0, i 52, 0,0, 0,0, i 48 

3870 ¿ATA 147,0.0. 152,0, 152,0,152,0 
,0,0,0.0.0,0,0,0,0,0,0,0, 152,0,0,0, 
Í32,0,0,0, 0,0,148 

3880 DATA 147.0,0.0,152,0,152,0,152 
,0,0,0.0,0,0,0,0,0,0,0, 132,0, 152,0, 
132,0,132,0. 0,0,0,Í4S 

3890 DATA 147,0,0,132,0,0,0,152,0,0 
,3,3,0,3,0,0,0,0.3,0,3, 152,0, 132,0, 
152,0,0,0,0,0,148 

3900 DATA 1 47,0,0,0, 152,0,152,0,152 
,0,0,0,0,0,0,0,0,0,0,0, i 52,0, 152,0, 
132,0,152,0. 0,0, 0,148 

39!í DATA 147. 0,0,132, ¿,152,0, 152.0 
,0. 0,0,0,0,0,0,0, 0.0,0,0, 152,0,152, 
0, 132,0,0, 0,0, A, 

3070 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,r ti a ¡r. a a Jr ¿ 0,0,0, 0,0,0,0,0,0, 



3940 DATA 147,0,0,0,0,0,0,0,0.0,0,0 
,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

3930 DATA 1 47 ,0,0, 0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

39,40 DATA 147,0,0,0,0,0,0,0.0,0,0,0 
,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0.0,148 

3970 OATA 147,0,0,0,0.0,0,0,0,0,0,0 
,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,l4é 

3980 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

3990 1 DAT A 147,0.0,0,0 .0 ,0 .0 .0 t,0 .0 .0 
.0,0, 0,0,0, 0,0. 0,0. 0.0,0, 0 I 0,0,0>0| 
0,0,148 

130, 130, 130.150.150.150.130, 150,150 




4040 DATA 149,150,130,130,150.150,. 

45,145.145,143,145,1 45 , 145,1 45. 1 45 , 
145,145,145,145,145,145,145,146.145 



070 DATA 14^,0,0,152,0,152,0,152,0 
3. 0.3, 0,0, 0.0. 0.0,0, 0,0, 152,0,132, 

,152,0,-0,0,0,0, Ué 

1080 PATA 4 -! 47, 0,152 ,0,1 52 ,3, 152, 3, 1 
'2, 0,0,0, 0,0, 0,0, 0,0, 0,0, 132,0, 1 52, 
í, Í32,0.l52.0,i;0,0,l48 



4l00 PATA J47 0,152.0,152,0,152,3,1 
32,0.0,0,0,0,0,0,0,0,0,0, 152,0, 152, 
0. Í52.0, 152.0,0,0,0, Uk 
4Í10 DATA 147,152,0,152,0,152,0,152 
,0, 152,3,3,3,3,3,0,0,3,0, 1^2,0, 152, 
0.132,0,132,0, 132,0,0,0,148 
4l20 DATA 147,0,152,0,152,3,102,0, 
52,0,0,0.0,0 A *■ 
0,152,0,152., 
4l30 DATA 14: 
52,0,0 ~ " 



DATA 147:152:0.0,0,152,010,0,1 
0,3,3,3,0,3,0,0,152,3,3,0, 152, 
[.152,0,0,0,148 
4143 DATA 147,0,0,0,152,0,152,0,0,3 
,0,0,0,0,0,0,0.0,0,0,0,0, 152,0, Í52, 
i. 3,3, 3, 0,0,148 

4l50 DATA 147,0,0,0.0.152,0.0,0.0,0 
,3,0,0,0,0,0,0,0,0,0,0,0, 152,0,0,0, 

*,A.0.0.l4Ó 

4lá0 cata 147,0,0,0,152,0,152,0,0.0 

,0,0,0,0,0,0,0,0,0,0,0,0, 132,3, lS2, 
0.0.0,0,0,0.148 

4l70 DATA 147,0,010,0,152,0.0,0,0,0 
,0,0,0,3,0.0,0,0,0,0,3,3, 152,0,0,3, 
0,6,0,0, Ué 

4Í80 DATA 147,0,0,0,0,0,0,0.0,0,0,0 
,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0.0,143 

4l90 DATA 147,0,0,0,0.0,0,0,0,0,0,0 
,0,0,0,0,0,3,0,0,3,0,0,0,0,0,0,3,0, 
0,0, l4é 

4200 DATA 147,0,0,010,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0, 

0,0,l4é 

4210 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0, Ué 

4220 DATA 147,0,0,0,0,0.0,0,0,0,0,0 
,0,0,0,0,0,3,0,3,3,0,0,0,0,0,0,0,0, 
0,0,Ué 

4230 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,3,3.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

4240 DATA 147,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0,0,Ué 

4230 DATA 149,150,130,130.130,150,1 
30,130, 130, 150, 150,153, 150, 150, 150, 
150, 130, 150, 130, 150, 150, 150,150, 150 
,150, 150, 150,150, 150, 150, 150,151 
4260 DATA 144,143,143,145,145,143,1 
43.145.145, 143,145, 143,145.145.145. 
143. 143, 143. 143,145.145,145,145,145 
.145, 145.145,145,145,145,145,146 
4270 DATA 147,0,0,0,0,0,0.0,0,0,0,0 
,0,0,3,0,0,0,0,0,0,0,0,0,0,0,3,0,0, 
0,0,148 

4280 DATA 149,150,130,130,130,150,1 
50, 130, 130, 150.150. 150. 130, 150, 150, 
130, 130, 150, 150, 150,150,150, 150, 150 
,153, 150, 130,150, 150,153, 150, 15l 
4290 DATA 144, 14!, 145,145, 145,145,1 
45,145,145,1 46, 1 45 , 1 45 , 1 45,145,143, 



4310 DATA 1.47.0,0,0. £¡,0,0,0,0. 132,0 

, 152,0, 132,0,132, A, l52, ir, 152.A, 132, 

0,0,0.0,0, 0,0,0,0, 148 

4320 DATA 147:0,0:0,0,0,0.0,152,0,1 

32,0, 132,0, 132,0, 152.0, 132,0,132. ¿, 

132, 0,0, 0,0. 0,0, 0,0. 1 43 

4330 DATA 147, ele: 152,0, 132. 0, 0, 0, 1 

32,0, 132,0,132.0,132,0,152,0,132,0, 

152,0.0.0,0,0,132,0,0,0,148 

4340 DATA 147,0,0.0.152,0,0.0,152,0 

,132.0, 132,0, 52,0, 152.0. l52.¿, 1527 

0,152,0,0,0.152,0,152,0,0,148 ' 

4350 DATA 147 , 0,0, 0, 0,0, C, 0.0. 152 .0 

,152,0, 132,0, 152..S, 152,0, 152,0, 152, 

0,0,0,0,0,0,0,0,0,148 

43éA f'ATA 147,0,0,0,0,0,0,0,152,0,1 

-17,0, 152,0, 152,0, 152,0, 132,0, 152,0, 

152,0,0,0.0.0,0,0,0,148 

4370 DAtA 147 0*0'0 0 0 0 0 0 152,0 

4390 DATA 147, 132,0, 132,0, 132. £.-.0,0 
,0 ,0. 0, 0,0, 0,0,0, .0,0, 0,0, 0,0,0,. i, Í5 
2,0, 152,0, 152,0, l4é 

4400 DATA 14-.0, 132,0, 152,0,0,0,0,0 

?vi?2f0 t ;0:iV' 0 ' ¿,¿>0,A '*' í, ' i ' 15 

?0!Í0^;,;^¿^¿^íl;¿f¿:if¿^i| 

7,0, I32,!í,l32, 0,143 

?i?J2! 



A.A.148 

0,0,148 

4490 DATA 149,150,150,130.130.130,1 
30 , 1 50 , 1 50 , 1 30 , 1 5A , 1 50 , 1 5 A , 1 sA , 1 5 A . 

isA.ibA.isA.isA, ísA.isA.isA.isA.isA 
.isA.isA, 15A.13A, ísA.isA.isA.isl 

4500 DATA 144, 14*,14*, 14*.14*,145, 1 
45, 1 45, 1 43, 143.145,1 45, 1 4*. 1 45, 1 45. 
143,143, 145, 144,145, 145,145,14*, 14* 

4510' data' i4^ 1 0 0^0 &*0 6^ A 1 ^ 6 ^ 0 
^¿Ijl^fíiSrAfAfAfATAfAfAfATAfAfAf 

4*zA DATA 149,150.130,130.130,150,1 
50 , 130.130,15 A . 1 5 A , 1 3 A , 1 5 A , 1 5 A , 1 5 A , 

ísA.isA, ibA.isA.isA.isA.isA.isA.isA 
.isA, 13A. 15A. 15A.15A, isA.isA.isl 

4330 DATA 144, 14*. 14*. 14*. 14*. 145. 1 
43, 143, 145, 14*, 143, 145, 145, 145, 145, 
143, 143, 145, 145, 145, 145,143.143, 145 
,145, 145, 14*. 14*, 14*, 145, 14*, 146 
4540 DATA 147,0,A,0,A,0. A,0,A,0,0,0 

,0,0. 0,0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 

4330 DATA 147,132,0,152,0,152,0.132 
0,152. 0.152. A. 152. A. 152, A, 152, A. 15 



2^0, 132,0, 132,0, 132,0, 132,0, 152,0 
4360 DAXA_147 t 0 L 132 l 0 L 132 1 0 L 132,0 : 



32, 3, 152,0, 152, A, 152, A, 152, A, 152, A. 
132,6, 152, A, 152, A, 152, A, 152.A.0, I48 
4370 DATA 147,0,0,0,0,0,0,0,0,0,0,0 

,0,0.0,0,0,0,A,A,A,A,A,0,6,¿,A,A,A, 
A.A.148 

4*8A DATA 14-.0, 0,0,0. 0,0,0, 0,0,152 
,0, 132,0, 152, A, 152, 0,1 52, A, 152,0,0, 
0.0.0.0.0, 0,0, A, 148 

4*90 CATA 147,0.0.0.0.0.0.0,0,0.0.0 
.0,0.0, 152, 0,A, 0,0, 0,0, 0,0, 0,0, 0,0, 

A,A,A,l48 ' ' 

4600 DATA 147,0,0,0,0,0,0,0,0,0,132 
,0,152,0,152,A,Í52,A, i 52, A, 152.A.0, 
0,0,0, 0,0,0, A, A, 148 

46lA DATA 147,0,0.0,0,0,0.0,0,0,0,0 

,0,0, 0,0, 0,0, A, A, A, A, A, A, A, A, 0,0, A, 

A,A,l48 

4¿2C DATA 147,0,152,0,152,0,152,0,1 
32,0,152,0, 152, A, 152, A, 152, A, 152. A. 
152.0, 152, A, 152, A, 152, A, 152. 0,0, 148 
463A DATA 147. 152.0,152, £. 1*2, 0, 152 
,0, 152,0, 152, A, 152, A, 152, A, 152,0. 15 
¿ ¿ A, 152, A, 152, A, 152, A, 152, A, 152, A, 1 

±í^0V0Í^AfAfAfA?A!AfA^A?AfAf 

A, 0,148 



A,A,l4é 

466A DATA 

A? AÍliV' 

467A DAT, 
0.0,0.0, 



tifiar 

473A DATA 149, 150, 150,150, 150, 150,1 
50 , 1 50 , 1 50 , 1 5A . 1 5 A , 1 5 A , 1 5A , 1 5 A , 1 5A , 
15A, 15A, 13A, 130, 15A, ISA, 13A. 150, 13A 

, 13A, 13A. isA. isA, isA, 13A, isA, ísi 

4740 DATA 144, 14*. 14*. 14*. 14*. 145. 1 
45.143. 145. 14*. 14*. 14*. 14*. 14*. 14*. 
14*. 14*. 14*. 14*. 14*. 14*. 14*. 14*. 14* 
,14*. 14*. 14*. 14*. 14*. 14*. 14*. 146 
4730 DATA 147,0, A,0,A,0,A,0, A, 0,0,0 

,0,0, 0.0, 0,0, A, A, A, A, A, A, A, A, A, A, A, 
A.A.Ué ....... 

4760 DATA 149,130,150,130,150,150.1 
50, 150, 150, ISA, ISA, ISA, ISA, 15A, 150, 
ISA, 15A, ISA, ISA, ISA, 150, 150,150, 150 

. isA, 13A. isA, 13A, 15A, 13A, isA, 15I 

4770 DATA 144. 14*. 14*. 14*. 14*. 145. 1 
43, 1 43, 1 43, 1 4* , 1 4* , 1 4* , 1 4* , 1 4* , 1 4* , 
14*. 14*. 14* , 14*. 14*. 14*. 145, 14*. 14* 
.14*, 14*. 14*^.14*, 14*. 14*. 14*. 146 
4780 DATA 147,0,A,0, 152.A, 132,0, 152 
,0, 152,0,0,0, 152, A, A,0, 1 52,0, A, A, 0, 

A.A.0, l32,A,A,0,A, I46 

4^9A DATA J47,0'0 152,0,0,0.0,0,0,0 

0.0. 0,0. 0,0, A, A, 1 32, A, A, A, A, A, A, A, 



Progran 



0.0,0,0,148 
4800 DATA ■ " 

,0, a, 152,0 

132,0, 0.0.Í 
4810 CATA ! 
" ( 0^0^0^0^ 

4820 DATA* 
,0,0,132,0 
132,0,0,6,1 
4830 DATA 
0,0,0,0. " 



¿V* * l"é' 

4840 DATA I 
8,0. 152,0, 
132,3,0,0 
4830 DATA . 



1860 DATA . 

.0.0.0.0,0 



1,0, 0,0,. í 

4*4v5 D.iTA 



4 7 ,0 ,0.0.0,0,0 ,0 , 0 .0 ,0 ,0 
-, 0,152,0,152,0,0,0,0,0, 
i. 148 

47,0.0, 132,0, 132.0. 132,0 
0.0.0,0,0,0,0, 132,0,0,0, 

r.Ué 

47,0,0,0,0,0,0.0,0,0,0.0 
0.0,132,0,0,0, 132,0,0,0, 

47,0,0,132,0,0.0,0,0 , C .0 
0,0,0,0,0,0,0, 132,0,0, if, 

I 

r.Ué 

47 ,0,0 ,1 52 .0 .0,0 ,0 ,0,0 ,0 
0,0,0,0,0,0,0,0,0,0,0,0, 



,47.0.0.0.0.0, 



DATA i-*/.»,* 
,0, 132,0, 152,0, 152,0, 132,0, 132,*>, . 
2,0, 152,0,0,0,0,0,0,0,148 
4880 DATA 157,0.0.0,0,0,0.0,0,0,0, 

.0.0,£",C, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,» 



Ué 

4900 DATA 
0.0,0.0,0 

1910 e>;ta 
,0,0,370,0 

0,0, 148 
4920 DATA 



T.byMtb^WM 
wyyMMffibU* 

4 7 d 3 L 13 L B 1 J l" 3 L 0 1-*> L¡> L C 

0,0, 0,0,0, ¿,¿,¿,¿,0,3,0, 

47, 0,0.0. 0,0, 0.0i0. 0.0.0 
0,0,070,0,0,070,0,0,0,0, 



0,0, 148 

4960 DATA 147,0,0,0,0,0,0,0.0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0.0.148 

4970 DATA 149,150,150,150,150,150,1 
50, 130, 130, 15¿, 15¿, 13¿, 13¿, 13¿, 150, 
130, 150, 130, 130, 150, 150, 150, 150, 130 
,150, 150, 150,150, 15¿, 150, 13¿, 15l 
4980 DATA 144, 143, 145, 145, 145, 145, 1 
45 , 1 43 , 1 45 , 1 45 , 1 45 , 1 45 , 1 45 , 1 45 , 1 45 . 
145, 145, 145,14é,144,14é,145,145,14é 
.145,145,145,145,145,145,145,146 
4990 DATA 147,0,0,0,0,0,0,0,0,0,0,0 
,0.0.0.0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0, 148 

5000 DATA 149,130.150,150,130,150,1 
50 , 1 50 , 1 50 , 1 5¿ . 1 5¿ , 1 5¿ , 1 50 , 1 50 . 1 5¿ . 
150, 130, 130, 150, 150,150,150,150, 130 
. 15¿, 13¿, 15¿, 15¿, 15¿, 15¿, 13¿, 15l 
5010 ' PAUSA 
3020 INTERVAL OFF 
3030 KEY(l) OFF 

3040 VPOKE 6809,45: VPOKE 6870, 80: VP 
OKE 6871,65: VPOKE 6872 . 85 : VPOKE 687 
3,83:VPOKE 6874,65: VPOKE 6873,45 
3050 VPOKE 6869,0: VPOKE 6870,¿:VPOK 
E 6871,0:VPOKE ¿872,0:VPOKE 6873,0: 
VPOKE 6874,0: VPOKE 6875,0 

— -TRIO(l) 



3110 RETURN 
3120 ' FINAL 
5130 CLS 

3140 LOCATE 3, 3: PRINT "HAS SALVADO A 
L MUNDO" 

5130 LOCATE 9 , 7: PRINT "ERES UN HEROE 

3160 LOCATE 2, 10:PRINT"PERO ESTO AC 
ABA DE EMPEZAR " 

3170 LOCATE 10, 14 : PRINT'PUNTOS: " I PU 
31 M PLAV D»:PLAV E*,F» 
3190 FOR 1=1 TO 5000INEXTI 

?E 2 ^AL B2 0FF? 0 "éT 7 á 7 4?r 1:P=6735:CLS:IN 



Test de listados ■ 



30 
40 

30 

60 


: % 

- 0 

- 0 

- • 

- 78 


180 
190 
200 
210 
220 
230 


-145 
- 40 
-164 
-206 
-216 
-200 


350 
360 
370 
380 
390 
400 


-206 

- 92 
-200 
-1 26 
-206 


320 
330 
340 
330 
360 


- 40 

- 61 

- 32 

- 49 

- 38 


70 
80 
90 
00 
10 
20 


- 34 

-103 
-105 

- 87 


240 
250 
260 

270 
280 
2°0 


-126 
-206 
-205 
-100 
-200 
-126 


410 

430 
440 
450 
460 


-201 

- 38 
-222 

- 38 
-198 


333 

600 

620 
630 


- 20 
-227 
-199 
-124 

- 45 

- 91 


40 
30 

60 

70 


- 8° 
-216 
-200 
-126 
-206 


300 
310 
320 
330 
340 


-206 
-142 
- 20 
-200 
-126 


470 
480 
490 
300 
310 


-217 

30 
-107 


640 

630 
660 

630 


-ñ 

- 67 
-139 

- 64 



860 -142 1030 -136 

870 -189 1040 -142 

880 -174 1050 -151 

890 - 83 1060 -177 



- 83 1090 -178 
-101 1100 - 83 



Ig "llí 



73 °40 - " 



1130 -214 
1160 -177 
1170 - 83 

ÍÍIS :i 7 80 



CALL XXVI 



ELVDPDE 
L0SMSX2ÍV) 



Este mes hemos construido una 
rutina para solucionar los pro- 
blemas de almacenaje de panta- 
llas gráficas. 



ALMACENAR PANTALLAS 

necesidad d^emplea^una" gran enti- 
dad de memoria de vídeo para almace- 
nar las imágenes. 1- lio crea dos proble- 
mas a la hora de tratar con pantallas 

■'■■!■■■ 




>mprimidas. Sin e: 
programas comerci: 



COMPRIMIR PANTALLAS 



:n SCREEN 5 y 6). Si se 

con almacenar dos bytes 
n de repeticiones y el 



1 LISTADO 1 


■ 230 ; 

■ 240 ¡calcula 1 i SUH de las inten- 

■ 250 isidades de los tres colores 


500 

510 SI ¡ 


JR NCiND 
SET 0,D 
INC H 


10 ; ti HARDCtPY SCSEEN 8 II 


270 
280 


LD C,A 

AND ZOOOOOOH 


530 
540 


DEC C 
JR NZ.L0 


20 ¡ mam &s? 

30 ¡ 


290 
300 


ADD Ai A 
LO B,A 


540 


LD Ai IIMEK 
GR A 


40 ORG tDOOO 
50 VPEEX: EDU 1174 
40 ¡ 


320 
330 


LD A,C 
SRL A 
SRL A 


570 
580 
590 

400 NDINVI 


LD A,D 
CPL 

CALL LPRINT 


70 X0R A 
80 LD (RELE), A 
90 U> IX.PASLIN 
100 CALL OUTCOD 


340 

350 
340 


LD C,A 

AND 100000111 

ADD A,B 


410 
420 
430 


POP HL 
INC E 
BIT 0,E 


110 LD 8,» 
120 LD HL,0 


370 
380 


LD BiA 
LD A,C 


440 

450 


JR NZ.LI 
INC L 


130 L2: LD A, 13 
140 CALL LPRINT 


390 
400 
410 


SRL A 
SRL A 
SRL A 


440 
470 


JR NZ.Ll 
LD A, (RELE) 


150 LD IX.BRAFIC 
160 CALL OUTCOD 


420 
430 


ADD A,B 

En 


480 
490 
700 


CPL 

LD (RELE), A 
DR A 


170 LD E,0 
180 LH LD C,8 
190 LD D,0 
200 PUSHHL 


440 ¡La 

450 

440 


swa esta en el ¡emulador 

CP 7 
JR CSI 


710 
720 
730 


JR NZ.L2 
LD A, 10 
CALL LPRINT 


710 L0I SLA D 
220 CALL VPEEK 


470 
480 
490 


BIT 0,E 
JR Z,« 
CP 12 


740 

750 
740 


LD A,8 
ADD A,H 
LD H,A 



CALL XXVI 



COMPRESOR DESCOMPRESOR 



40 FW X=f¿HC000 TD tHClCBiREAD V* 
SO POKE X,VflLCW*V$):S=&(fEB;(X) 
60 IOTíIF S05J44S! IKK BE£P:aS:PRIKT 



110 DATAflF,ED,73,CC,Cl,F5,CD,23,Cl,CD,19 
,C1,F1,B7,C2,B7,C0,CD,5A,C1,CD,84,C1,3A, 
AF, FC, 1 1 , 00, D4, FE, 07, 30, 03, 1 1 , 00, Mi 21 , 0 

0. 00,CD,6E,01,21,F6,Ci,DB,9B,47,7A,B3,2B 
, X, 7C, FE, C5, Mi 9E, C0, DB, 98, IB, BG, 2B, 37, 
36 

120 DATAOO,23,22,CE,C1,23,70,23,OE,01,47 
,7A,B3, 28, 0B,1B,DB, 99, BB, 28,12,70, 23,OC, 

1, C9,79,3D,20,08,2B,4E,2B,2B,36,Ól,23,23 
,CD,61,CO,OE,Ol,7A,B3,28,0D,lB,0C,28,07, 
DB 

130 DATA98,Be,2B,F3,lB,02,0D, 78,71,23,70 
,23, 18,9F,CD,9E,C0, 11,DO,C1,OE, 10, CD, 1E, 
C1,C3,7F,C1,D5,C5,11,F6,C1,A7,ED, 52,11, D 
0,C1,0E,26,C4,IE,C1,C2,63,C1,C1,DI,21,F6 
, Cl , C9, CD, 68, Cl , CD, 84, Cl , 21 , 00, 00, 22, CE, 
Cl 

140 DATACD,71,01,CD,E3,C0,B7,20,0D,CD,E3 
,CO,47,CD,E3,C0,D3,7B, 10.F9, 18,ED,47,CD, 
E3,C0,D3,98,10,FC,1B,E3,ED,SB,CE,C1,7A,B 
3,28,08, 1B,ED,53,CE,C1,7E,23,C9,2A,E0,C1 
,ED,5B,F1,C1,ED,52,CA,7F,C1,7C,FE,04,3B, 
03 

ISO DATA21,00,04,22,CE,C1,C5,OE,27, 11,00 
,C1,CD,1E,C1,C1,2I,F6,CI,1B,CA,11,F6,C1, 
0E,lA,CD,7D,F3,B7,CT,«,0B,21,D0,Cl,flF,7 
7,23,36,20, 10,FB,04, 18,23, 77,10,FC,13,iA 
,13,&F,1A,67,0E,09,11,D1,C1,CD,4D,C1,D8, 

160 DATAD9,C1,OE,03,EA,4D,C1,Z3,7E,FE,2E 
,C8,FE,22,3F,CB,ED,M,E0,1B,F3,11,D0,C1, 
0E,16,CD,IE,Cl,C8,il,M,Cl,lB,X,ll,D0,C 
1,OE,OF,CD,1E,C1,C8,11,92,C1,D5,AF,CD,SF 
,00,Dl,OE,09,CD,lE,Cl,ED,7B,CC,Cl,n,21, 

170 DATAO0,22,Fl,Cl,22,F3,Cl,23,22,DE,Cl 
,C9,46,49,43,48,45,S2,4F,20,4E,4F,20,4S, 
4E,43,4F,4E,54,S2,41,44,4F,0D,0A,24,4E,4 
F,4D,42,52,45,20,49,4E,43,4F,S2,S2,45,43 
,54,4F,20,4F,20,44,49,53,43,4F,20,4C,4C, 



LISTAD02 



30 FOR X=tHD000 TO &HD09B:READ Vt 

40 POKE «,VAL('l,«'tV$>:S=S*fEEXm:iEIT 

50 IF S018269 TU* BEEP:CLS:PRmT"r«Y U 



70 DATAAF,32,9C,D0,D0,21,B0,D0,CD,86,D0, 
06,lA,21,00,0O,3E,OD,C0,93,D0,DD,21,AO,D 
0,CD,B6,D0, 1E,00,OE,08, 16,00, E5,CB,22,CD 
, 74, 01 , D9, 4F.E6, 03, 87, 47, 79, CB, 3F, CB, 3F, 
4F.E6, 07, 80, 47, 79, CB, 3F.CB, 3F, CB, 3F, 80, D 

80 DATAFE,07,38,08,C8,43,2B,06,FE,X,30, 
02, CB, C2, 24, OD, 20, 00, JA, CO, DO, B7, 7A.28.0 
1,2F,D9,06,08,1F,CB,12,10,FB,7A,D9,CD,93 
, DO, El , ICCB, 43, 20, BO, 2C, 20, AD, 3A, 9C, DO, 
2F, 32, 9C,D0,B7, 20, 95, 3E, OA, CD, 93, DO, 3E, 0 



190 PRIMT'Listo para grabar H06I.BIN* 
200 PRIKT'Prepara un disco y pulsa" 
210 PRHír-una tecla" 
220 ZMINKEY«:IF Z«=" TrEH 220 



dentro de unos capítulos que dedica- 
mos al sistema operativo de disco. Se 
trata de las rutinas usuales de creación 
del I de Control Blok (MAKEECB), 
iiucion del .mu de tianslercmu de 



io siempre, te 
el listado fuen 
blador, puesto que e: 
hacer modificaciones 



o te permitirá 
> emplear pate 



ge el cargador de líneas DATAS. Sea 

obtener el código ejecutable, el resulta- 
do ponió en un fichero llamado 
"COMPRIME.BIN". 

USO DE LA RUTINA 

El compresor se invoca haciendo 
una llamada a la dirección &HC000. El 
punto de entrada del descompresor es 



95 BLOAD "COMPRIME.BIN" 

96 DEFUSR=&HC000 

97 PRINT USR ("DEMO.SCR") 
Al correr el programa, se dibu,ará la 

figura en la pantalla en SCREEN 8, se 



ado "DEMO.SCR" 



IC SCREEN S 

20 DEUSR = &HC001 

30 PRINT USR ("DEMO.SCR") 

40 GOTO 40 



dad d. . u^.i d, .s ¿Minos. Huelga 
página pasiva y hace aparecer la imagen 

comVrTso7tíaba|a C soío C con''la t VRAM 
que contiene los puntos de la imágen. 
Es preciso, pues, restaurar los colores 
originales de la paleta v los registros 
del VDP ames Je descomprimí, cada 
imagen. En otro caso pueden apreciar- 
se diferencias con el original. 



CP B 

JR Z.SIEBU 

LD (HL),B 

INC (4 



JR NZ.SIEOUl 
DEC HL 
LD C, («.) 



JR Z,NO 

DEC DE 

INC C 

JR Z.STOP 

IN «,(196) 

CP B 

JR Z,L1 

JR NO 



1020 END5CR: CALL HRTBLK 
1030 LD DE.FCS 

1040 LD C.I10 





m 




j 


TRUCOS DEL PROGRAMADOR! 


Los interesados en participar en esta sección, pueden enviar sus 
trucos y descubrimientos de programación a: 
MANHATTAN TRANSFER, S.A. 
Sección: Trucos del programador 
Roca i Batlle, 10-12, bajos 
0X02? Barcelona 


FUNCIONES 
MATEMATICAS 

DAVID RUBIO RIERA 
(BARCELONA) 

Los MSX solo tienen definidas algu- 
nas funciones matemáticas: COS, SIN, 

ABS. Aquí os mando una lista de 
funciones que se pueden obtener a 

Látate V^COSÍX)"' 0 "" ' 
Cosecante = 1/SIN(X) 
Cotangente = 1/TAN(X) 
Arco seno = ATN(X/SQR(-X*X + 1)) 
Arco coseno = -ATN (X/SQR(-X a X- 
1))+ 1.5708 

Arco secante = ATN(1/SQR(X*X- 

l)+(SGN(X)-l)*l-5708 

Arco cosecante = ATN(X/SQR(X*X- 

lJ+SGNíXHri.S/OS 

Seno hiperbólico = (EXP(X) + EXP(- 
X))/2 


(EXP(X) + EXPÍ-X))/2 
Tangente hiperbólica = (EXP(X)- 
EXP(-X))/(EXP(X)+ EXP(-X)) 
Secante hiperbólica = 21 
(EXP(X) + EXP(-X)) 

2/(EXP(X)-EXP(-X)) 

(EXp"(X) + EXP(-X))/(EXP(X>-EXP 

Í-X)) Arco seno hiperbólico = 

LOG(X+SQR(X*X+l)) 

Arco coseno hiperbólico = 

LOG(X + SQR(X*X-l)) 

Arco cotangente hiperbólica = 

LOG((l+X)/(l-X))/2 

Arco secante hiperbólica = 

LOG((SQR XX-: . Xi 

LOG™SGn"x)*s'qR(X*X+ 1 )+ 1 )/X) 
Arco catan • 
LOG((X + l)/(X-l))/2 

Recordad que el ordenador nos dará 


(X' : ir/18¿) Y q P 


ALGUNOS 
TRUCOS PARA 
PRINCIPIANTES 

OSCAR SALGADO SUGRAÑES 
(TARRAGONA) 

-Imaginaros que queréis borrar las 
líneas 10, 20 y 30 de un programa 
cualquiera; pues para no escribir DE- 
LETE 10... podéis hacerlo de una 
forma más sencilla: DELETE 10-30. 

en esta ocasión se utiliza para 'listaras 
líneas. Ejemplo: LIST 10-30 

úcam E :nte7e a ,aret Í 




SUSCRIBETE .A. ^^S!^» 

Suscribiéndote, no solo tienes l.i st-niiriil.nl tic tener lotlos los meses tu 
MSX CLUB DI! PROGRAMAS en tu tasa sino que recibiros 12 

números pagando sólo 10 " 




BOLETIN DI PROG 


Ciudad Provincia 

¡ D. Postal Telefono 

i ^s't^LtZ^ssKeí 1 "^ 

Tarifas: España por correo normal Ptas. 3.500,— 
Europa por correo aéreo Ptis 6.250,— 
América por correo aéreo USAS 60, — 
| Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 



